home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_68_load 4bit weave chips.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  666 b   |  18 lines
  1. global gSize, gWvBgColor, gWvBgShadow, gWvVcolor, gWvVShadow, gWvHcolor, gWvHShadow
  2.  
  3. on prepareFrame me
  4.   put integer(gSize / 4) into field "weave H space"
  5.   put integer(gSize / 4) into field "weave V space"
  6.   put "2" into field "weave H width"
  7.   put "2" into field "weave V width"
  8.   put "1" into field "weave depth"
  9.   if (gWvBgColor = 0) and (gWvBgShadow = 0) and (gWvVcolor = 0) and (gWvVShadow = 0) and (gWvHcolor = 0) and (gWvHShadow = 0) then
  10.     gWvBgColor = paletteIndex(251)
  11.     gWvBgShadow = paletteIndex(255)
  12.     gWvVcolor = paletteIndex(2)
  13.     gWvVShadow = paletteIndex(250)
  14.     gWvHcolor = paletteIndex(1)
  15.     gWvHShadow = paletteIndex(249)
  16.   end if
  17. end
  18.